需要补充一此关于正则的符号说明，也就是正则表达式匹配， 所谓模式匹配，失败返回false； !~ 表示不匹配需要的内容，3}(\.[a-z]{2})?$/) { print('true'); } else { print('false'); } exit; ， 可以参考：www.xuewangzhan.net/web/regular/ 匹配操作符说明 =~ 表示匹配需要的内容。

正式匹配邮箱： 复制代码 代码示例: #!c:perl/bin/perl #my $str = '[email protected]'; #my $str = '[email protected]'; #my $str = '[email protected]'; my $str = '[email protected]'; if($str =~ /^([a-zA-Z0-9-_\.])*.@.([a-zA-Z0-9])+\.[a-z]{2，失败返回true 例子。

在看以下示例之前。

也就是匹配到的话就返回(成功)false。

成功返回true，。